home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 3 / CD ACTUAL 3.iso / linux / incoming / jstools-.6v3 / jstools- / jstools-tk3.6v3.0 / lib / jentrybasic.tcl < prev    next >
Encoding:
Text File  |  1995-02-05  |  1.9 KB  |  66 lines
  1. # jentrybasic.tcl - support for basic Entry bindings
  2. # 
  3. # Copyright 1992-1994 by Jay Sekora.  All rights reserved, except 
  4. # that this file may be freely redistributed in whole or in part 
  5. # for non-profit, noncommercial use.
  6.  
  7. ######################################################################
  8. # NOTE:
  9. #   the "jentryemacs.tcl" and "jentryvi.tcl" libraries contain actual
  10. #   procedures for emulation-specific actions.  "basic" bindings,
  11. #   however, don't use anything that isn't general (and therefore
  12. #   in jentrytext.tcl), so this file just has j:eb:basic_init in it.
  13. ######################################################################
  14.  
  15. ######################################################################
  16. # j:eb:basic_init - initialise info for basic Entry bindings
  17. ######################################################################
  18.  
  19. proc j:eb:basic_init { e } {
  20.   global j_teb
  21.   set j_teb(cutbuffer) {}
  22.   set j_teb(dragscroll,txnd) 0
  23.   set j_teb(dragscroll,delay) 50
  24.   set j_teb(scanpaste_time) 0
  25.   set j_teb(scanpaste_paste) 1
  26.     
  27.   set j_teb(keymap,$e) basic
  28.   
  29.   # in tk4, we need to make sure tkTextBind is called _before_
  30.   #   j:tb:key_bind!
  31.   j:tk4 {tkEntryBind Enter}
  32.   
  33.   j:eb:key_bind $e
  34.   j:eb:mouse_bind $e
  35.   
  36.   j:ekb:mkmap Entry basic basic {
  37.     {Control-slash        j:eb:select_all}
  38.     {Control-backslash        j:eb:clear_selection}
  39.     
  40.     {Delete            j:ekb:delete_left}
  41.     {BackSpace            j:ekb:delete_left}
  42.     {Return            j:ekb:self_insert}
  43.     
  44.     {Left            j:ekb:left}
  45.     {Right            j:ekb:right}
  46.     
  47.     {Home            j:ekb:bol}
  48.     {End            j:ekb:eol}
  49.     
  50.     {Control-v            j:eb:paste_selection}
  51.     {Control-i            j:ekb:self_insert}
  52.     {Control-j            j:ekb:self_insert}
  53.     {Control-h            j:ekb:delete_left}
  54.     
  55.     {Control-DEFAULT        j:eb:no_op}
  56.     {DEFAULT            j:ekb:self_insert}
  57.     {Shift-DEFAULT        j:ekb:self_insert}
  58.   }
  59. }
  60.  
  61. # deprecated alias for backward compatibility:
  62.  
  63. proc j:eb:basic_bind { W args } {
  64.   j:eb:basic_init $W
  65. }
  66.